home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / barcod.exe / BARCODS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-06-13  |  6.7 KB  |  208 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "BarCod ActiveX Sample"
  7.    ClientHeight    =   3690
  8.    ClientLeft      =   1170
  9.    ClientTop       =   1890
  10.    ClientWidth     =   3975
  11.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   4095
  22.    Left            =   1110
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   3690
  27.    ScaleWidth      =   3975
  28.    Top             =   1545
  29.    Width           =   4095
  30.    Begin VB.ComboBox Combo1 
  31.       Appearance      =   0  'Flat
  32.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   300
  42.       Left            =   240
  43.       Style           =   2  'Dropdown List
  44.       TabIndex        =   4
  45.       Top             =   1920
  46.       Width           =   3495
  47.    End
  48.    Begin VB.TextBox Text1 
  49.       Appearance      =   0  'Flat
  50.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  51.          Name            =   "MS Sans Serif"
  52.          Size            =   8.25
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   285
  60.       Left            =   960
  61.       TabIndex        =   0
  62.       Text            =   "SAMPLE"
  63.       Top             =   960
  64.       Width           =   2775
  65.    End
  66.    Begin BarcodLib.Barcod Barcode1 
  67.       Height          =   615
  68.       Left            =   240
  69.       TabIndex        =   6
  70.       Top             =   120
  71.       Width           =   3495
  72.       _Version        =   65542
  73.       _ExtentX        =   6165
  74.       _ExtentY        =   1085
  75.       _StockProps     =   75
  76.       Caption         =   "SAMPLE"
  77.       BackColor       =   16777215
  78.       BarWidth        =   0
  79.       Direction       =   0
  80.       Style           =   3
  81.       UPCNotches      =   0
  82.       Alignment       =   0
  83.       Extension       =   ""
  84.    End
  85.    Begin VB.Label Label4 
  86.       Appearance      =   0  'Flat
  87.       BackColor       =   &H00C0C0C0&
  88.       Caption         =   $"BARCODS1.frx":0000
  89.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  90.          Name            =   "MS Sans Serif"
  91.          Size            =   8.25
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       ForeColor       =   &H80000008&
  99.       Height          =   1095
  100.       Left            =   240
  101.       TabIndex        =   5
  102.       Top             =   2400
  103.       Width           =   3495
  104.    End
  105.    Begin VB.Label Label3 
  106.       Appearance      =   0  'Flat
  107.       BackColor       =   &H80000005&
  108.       BorderStyle     =   1  'Fixed Single
  109.       Caption         =   "SAMPLE"
  110.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.          Name            =   "MS Sans Serif"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       ForeColor       =   &H80000008&
  120.       Height          =   285
  121.       Left            =   960
  122.       TabIndex        =   3
  123.       Top             =   1440
  124.       Width           =   2775
  125.    End
  126.    Begin VB.Label Label2 
  127.       Appearance      =   0  'Flat
  128.       BackColor       =   &H00C0C0C0&
  129.       Caption         =   "Output:"
  130.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  131.          Name            =   "MS Sans Serif"
  132.          Size            =   8.25
  133.          Charset         =   0
  134.          Weight          =   400
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.       ForeColor       =   &H80000008&
  140.       Height          =   255
  141.       Left            =   240
  142.       TabIndex        =   2
  143.       Top             =   1440
  144.       Width           =   735
  145.    End
  146.    Begin VB.Label Label1 
  147.       Appearance      =   0  'Flat
  148.       BackColor       =   &H00C0C0C0&
  149.       Caption         =   "Input:"
  150.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  151.          Name            =   "MS Sans Serif"
  152.          Size            =   8.25
  153.          Charset         =   0
  154.          Weight          =   400
  155.          Underline       =   0   'False
  156.          Italic          =   0   'False
  157.          Strikethrough   =   0   'False
  158.       EndProperty
  159.       ForeColor       =   &H80000008&
  160.       Height          =   255
  161.       Left            =   240
  162.       TabIndex        =   1
  163.       Top             =   960
  164.       Width           =   735
  165.    End
  166. Attribute VB_Name = "Form1"
  167. Attribute VB_Creatable = False
  168. Attribute VB_Exposed = False
  169. Option Explicit
  170. Private Sub Combo1_Change()
  171.     Barcode1.Style = Combo1.ListIndex
  172.     Label3.Caption = Barcode1.Displayed
  173. End Sub
  174. Private Sub Combo1_Click()
  175.     Combo1_Change
  176. End Sub
  177. Private Sub Form_Load()
  178.     Combo1.AddItem "None"
  179.     Combo1.AddItem "Code 2 of 5"
  180.     Combo1.AddItem "Interleaved 2 of 5"
  181.     Combo1.AddItem "Code 3 of 9"
  182.     Combo1.AddItem "Codabar (Rationalized)"
  183.     Combo1.AddItem "Extended Code 3 of 9"
  184.     Combo1.AddItem "Code 128-A"
  185.     Combo1.AddItem "Code 128-B"
  186.     Combo1.AddItem "Code 128-C"
  187.     Combo1.AddItem "UPC-A"
  188.     Combo1.AddItem "MSI (Plessey)"
  189.     Combo1.AddItem "Code 93"
  190.     Combo1.AddItem "Extended Code 93"
  191.     Combo1.AddItem "EAN-13"
  192.     Combo1.AddItem "EAN-8"
  193.     Combo1.AddItem "PostNet"
  194.     Combo1.AddItem "ANSI 3 of 9"
  195.     Combo1.AddItem "ANSI 3 of 9 (extended)"
  196.     Combo1.AddItem "Code 128 (auto)"
  197.     Combo1.AddItem "UCC/EAN-128"
  198.     Combo1.AddItem "UPC-E"
  199.     Combo1.AddItem "Royal Mail RM4SCC"
  200.     Combo1.ListIndex = 3
  201.     Text1_Change
  202. End Sub
  203. Private Sub Text1_Change()
  204.     Barcode1.Caption = Text1
  205.     DoEvents
  206.     Label3.Caption = Barcode1.Displayed
  207. End Sub
  208.